perm filename BUG[DOC,TOB] blob sn#225656 filedate 1976-07-13 generic text, type T, neo UTF8
00100	Dear John
00200	Here is an example where BAIL loses printing context
00300	when there is an intervening procedure.
00400	
00500	
00600	This is BUG[DOC,TOB]
00700	
00800						AL DOC,TOB
00900						RUN LINKC
01000	INPUT FILE NAME 			A3A
01100	COUNT!EDGE 18461
01200	X1 1
01300	X2 512
01400	Y1 1
01500	Y2 512
01600	DIFF 21.60 *cr				<cr>
01700	SET WINDOW   Y or N			Y
01800	X1W 1.000 *cr				<cr>
01900	X2W 512.0 *cr				256
02000	Y1W 1.000 *cr				<cr>
02100	Y2W 512.0 *cr				256
02200	
02300	Bail    .... LINKC.BAI
02400	End of Bail Initialization
02500	#55 + 0
02600	1: 					BREAK("STORE");
02700	1: 					BREAK("GC");
02800						$P
02900						$X
03000						$X
03100						$X
03200		here it has lost printing context
03300						$X
03400